home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / modulesmc.lha / ModulesMC1 / testQstringf.e < prev    next >
Encoding:
Text File  |  1994-11-21  |  591 b   |  21 lines
  1. MODULE '*interval','*qstringf'
  2. PROC main()
  3. DEF s[80]:STRING, a = 3, len, sptr, i
  4. sptr,len:=stringf(s,'a = %ld %ld %ld',[a,5,a])
  5. WriteF('\s \d\n',s,len)
  6. WriteF('\s\n',IF sptr=s THEN 'SAME' ELSE 'DIFFERENT')
  7. stringf(s,'a = \d \d \d %lb\n',[a,5,a,17])
  8. WriteF(s)
  9. stringf(s,'abcd')
  10. WriteF('\s\n',s)
  11. WriteF('Starting to time StringF\n')
  12. interval(TRUE)
  13. FOR i:=1 TO 5000 DO StringF(s,'\s \d \c \h\n','abcd',65,65,65)
  14. WriteF('string is \s',s)
  15. interval()
  16. WriteF('Starting to time stringf\n')
  17. FOR i:=1 TO 5000 DO stringf(s,'\s \d \c \h\n',['abcd',65,65,65])
  18. WriteF('string is \s',s)
  19. interval()
  20. ENDPROC
  21.